Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Delphi - [Delphi 7] E' possibile cancellare i file creati dopo la visualizzazione?
Forum - Delphi - [Delphi 7] E' possibile cancellare i file creati dopo la visualizzazione?

Avatar
Track (Normal User)
Rookie


Messaggi: 30
Iscritto: 23/01/2011

Segnala al moderatore
Postato alle 1:04
Lunedė, 15/08/2011
Salve a tutti ho un progetto di una webcam locale, questo progetto funziona molto bene, ma ha un intoppo, ovvero crea tantissimi file nella cartelle cui si č salvato l'exe, postai una domanda tempo fa, in cui chiedevo un modo per caricare quei file nello stream, senza intasare la cartella, ma purtroppo non vi era possibile, allora mi chiedevo, č possibile che quei file vengano cancellati dopo la visualizzazione all'image1?

Source webcam: http://www.megaupload.com/?d=MES6MR1M

PM
Avatar
Goblin (Member)
Expert


Messaggi: 375
Iscritto: 02/02/2011

Up
1
Down
V
Segnala al moderatore
Postato alle 1:43
Lunedė, 15/08/2011
La variabile locale FilePath dentro l'evento OnTimer spostala nella sezione private, nel create setta FilePath :='' e nell'evento OnTiner scrivi  come prime righe
Codice sorgente - presumibilmente Delphi
  1. if FilePath<>'' then
  2.     DeleteFile(FilePath);


il tutto diventa
Codice sorgente - presumibilmente Delphi
  1. private
  2.     { Private declarations }
  3.     FilePath : String;
  4. ......
  5.  
  6. procedure TForm1.FormCreate(Sender: TObject);
  7. begin
  8.   WebcamInit;
  9.   TimeSeparator:= '_';
  10.   ComboBox1.Clear;
  11.   WebcamList;
  12.   FilePath :='';
  13. end;
  14. .......
  15.  
  16. procedure TForm1.Timer1Timer(Sender: TObject);
  17. begin
  18.   Image1.Picture := Nil; // non so se ci vuole
  19.   if FilePath<>'' then // se esiste il file lo sego
  20.     if fileexists(FilePath) then
  21.       DeleteFile(FilePath);
  22.   FilePath := ExtractFilePath(ParamStr(0))+ TimetoStr(Time())+'.bmp';
  23.   CaptureWebcam(FilePath);
  24.   if fileexists(FilePath) then // lo carico solo se esiste
  25.     Image1.Picture.LoadFromFile(FilePath);
  26. end;


NB: non l'ho testato in quanto non ho la cam, ma andando a logica dovrebbe funzionare...

G.

Ultima modifica effettuata da Goblin il 15/08/2011 alle 1:45
Ringraziarti č poco, tu si che aiuti veramente l'utenza ;), - Track - 15/08/11 15:50

Ibis redibis non morieris in bello
PM